home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / bcpl4amiga.lha / bcpl / fact.bpl < prev    next >
Text File  |  1988-03-24  |  150b  |  6 lines
  1.  GLOBAL $( START:1; WRITEF:76 $)
  2.  LET START () BE $(1
  3.  LET F(N) = N=0 -> 1, N*F(N-1)
  4.  FOR I = 1 TO 10 DO WRITEF("F(%N), = %N*N", I, F(I))
  5.  FINISH $)1
  6.